#! /usr/bin/perl -w

my @prevrow=();
my @row=();
my $ini=0;
my $fin=0;
my $preini=0;
my $prefin=0;
my $id="";
my $c1=0;
my $c2=0;
my $i=0;


while (<STDIN>) 
{
    chomp($_);
    @row=split(/\t/,$_);

    $id=$row[0];
    if ($row[6] =~/-trev/)
      { 
        $ini=$row[3];
        $fin=$row[2];                          
      }
    else
      {
        $ini=$row[2];
        $fin=$row[3];
      }

    if (($row[1] eq $prevrow[1])&&($ini>=$preini-75000)&&($fin<=$prefin+75000))
    {
        print "Seleno$i\t$row[1]\t$ini\t$fin\t$id\n";
    }
    else
    {
        $i++;
        print "Seleno$i\t$row[1]\t$ini\t$fin\t$id\n";
    }

    @prevrow=@row;
    $preini=$ini;
    $prefin=$fin;
}